home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / s / stop_n_block / stopnblock.dms / in.adf / Glider.AMOS / Glider.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1991-06-13  |  12.4 KB  |  539 lines
  1. Screen Open 0,330,270,16,Lowres
  2. Rem ************************************ 
  3. Rem *                                  * 
  4. Rem *          Written By              * 
  5. Rem *         TONY STREET              * 
  6. Rem *       Completed 8/7/91           * 
  7. Rem *       Second Game Ever           * 
  8. Rem *                                  * 
  9. Rem ************************************ 
  10. HX=160 : HY=10 : LEV=1 : SCORE=0 : LIFE=3 : HSCORE=0
  11. Global HX,HY,LEV,SCORE,LIFE,HSCORE
  12. '
  13. TITLE
  14. SR
  15. '
  16. Procedure BO1
  17. Anim Off 
  18. Bob Off 1 : Bob Off 2 : Bob Off 3
  19. Bob Off 4 : Bob Off 5 : Bob Off 6
  20. Bob Off 7 : Bob Off 8 : Bob Off 9
  21. End Proc
  22. Procedure SHOF
  23. Bob Off 
  24. Cls 0
  25. Mvolume 63
  26. Paper 0
  27. Pen 1
  28. Pen 9 : Locate 13,8 : Print "Congratulations"
  29. Locate 6,12 : Print "You have completed all levels"
  30. Print 
  31. Print 
  32. Locate 17,16 : Pen 6 : Print "The End "
  33. Wait 200
  34. Locate 20,19 : Pen 5 : Print "or "
  35. Wait 40
  36. Locate 15,23 : Print "THE BEGINING"
  37. Wait 250
  38. LEV=1
  39. End Proc
  40. Procedure SR
  41. STOB:
  42. If LEV>20 Then SHOF
  43. Screen Open 0,320,270,16,Lowres
  44. Mvolume 20
  45. Hide 
  46. Flash Off 
  47. Cls 0
  48. Unpack 6 To 0
  49. Double Buffer 
  50. Get Sprite Palette 
  51. Paper 10
  52. Pen 11
  53. Print "SCORE:";SCORE;"       High:";HSCORE;"         lives:";LIFE
  54. Print 
  55. If LEV=1 Then LEV1
  56. If LEV=2 Then LEV1
  57. If LEV=3 Then LEV2
  58. If LEV=4 Then LEV3
  59. If LEV=5 Then LEV3
  60. If LEV=6 Then LEV4
  61. If LEV=7 Then LEV5
  62. If LEV=8 Then LEV6
  63. If LEV=9 Then LEV5
  64. If LEV=10 Then LEV7
  65. If LEV=11 Then LEV8
  66. If LEV=12 Then LEV9
  67. If LEV=13 Then LEV10
  68. If LEV=14 Then LEV8
  69. If LEV=15 Then LEV11
  70. If LEV=16 Then LEV12
  71. If LEV=17 Then LEV7
  72. If LEV=18 Then LEV10
  73. If LEV=19 Then LEV14
  74. If LEV=20 Then LEV15
  75. A=26 : HX=160 : HY=10
  76. Bob 10,HX,HY,A
  77. Do 
  78. HY=HY+1 : Wait 2
  79. If A=28 Then HX=HX+1
  80. If A=26 Then HX=HX-1
  81. If A=29 Then HY=HY+1 : HX=HX-2
  82. If A=30 Then HY=HY+1 : HX=HX+2
  83. If Jleft(1) Then A=26
  84. If Jright(1) Then A=28
  85. If Jdown(1) Then If A=<26 : A=29 : Else A=30 : End If 
  86. If Bob Col(10,1 To 9) Then Boom : Goto CRASH
  87. If HY>=230 Then A=36
  88. Bob 10,HX,HY,A
  89. If HY>=230 Then Goto FIN1
  90. If HX>=290 Then A=26
  91. If HX<=0 Then A=28
  92. Loop 
  93. FIN1:
  94. LEV=LEV+1
  95. BO1
  96. Bob 11,HX,HY,A
  97. Put Bob 11
  98. Bell 
  99. SCORE=SCORE+1
  100. Paper 10
  101. Pen 11
  102. Locate 6,10 : Print "Well Done You Have Completed "
  103. Print 
  104. Locate 16,12 : Print "Level ";SCORE
  105. Wait 150
  106. Goto STOB
  107. CRASH:
  108. Do 
  109. For G=HY To 227
  110. Bob 10,HX,G,32
  111. If G=>227 Then Goto HOLE
  112. Wait 1
  113. Next G
  114. Loop 
  115. HOLE:
  116. BO1
  117. G=234
  118. Boom 
  119. Channel 10 To Bob 10
  120. Bob 10,HX,G,33
  121. Channel 1 To Bob 10
  122. A$="Anim 8,(33,4)(34,4);"
  123. Amal 10,A$
  124. Amal On 10
  125. Wait 64
  126. Bob 10,HX,G,35
  127. LIFE=LIFE-1
  128. If LIFE=<0 Then Wait 100 : Goto FINISH
  129. Paper 10
  130. Pen 11
  131. Locate 10,10
  132. Centre "You Lose A Life"
  133. Wait 150
  134. Goto STOB
  135. FINISH:
  136. Anim Off 
  137. Bob Off 
  138. Cls 0
  139. Paper 0
  140. Pen 11
  141. Locate 16,13 : Print "Game Over"
  142. Locate 13,15 : Print "Your Score Was";SCORE
  143. If SCORE>HSCORE Then Locate 13,17 : Print "A New High Score"
  144. Locate 7,20 : Pen 6 : Print "Press A Key To Restart Game"
  145. Mvolume 63
  146. Wait Key 
  147. If SCORE>HSCORE Then HSCORE=SCORE
  148. LEV=1 : SCORE=0 : LIFE=3
  149. Goto STOB
  150. End Proc
  151. Procedure TITLE
  152. Music 1
  153. Tempo 17
  154. Mvolume 63
  155. Unpack 7 To 0
  156. Hide On 
  157. Screen Hide 0
  158. SLIDE_ON[0]
  159. Wait 300
  160. SLIDE_OFF[0]
  161. Screen Close 0
  162. '
  163. Unpack 8 To 0
  164. Hide On 
  165. Screen Hide 0
  166. SLIDE_ON[0]
  167. Wait Key 
  168. SLIDE_OFF[0]
  169. Screen Close 0
  170. End Proc
  171. Procedure SLIDE_ON[NUM]
  172. Screen Display NUM,500,,,
  173. Screen Show NUM : Screen To Front NUM
  174. For LOP=437 To 128 Step -16
  175. Screen Display NUM,LOP,,,
  176. Wait Vbl 
  177. Next LOP
  178. End Proc
  179. Procedure SLIDE_OFF[NUM]
  180. Y=50
  181. For LOP=128 To 432 Step 16
  182. Screen Display NUM,LOP,Y,,
  183. Add Y,-14
  184. Wait Vbl 
  185. Next LOP
  186. End Proc
  187. Procedure LEV1
  188. Channel 1 To Bob 1
  189. Bob 1,330,75,1
  190. A$="Loop:Anim 0,(3,4)(4,4):Move -380,0,150:Anim0,(1,4)(2,4):Move 380,0,150;Jump Loop"
  191. Amal 1,A$
  192. Amal On 1
  193. T=Rnd(10)+1 : Wait T
  194. Channel 2 To Bob 2
  195. Bob 2,340,120,19
  196. B$="Loop:Anim 0,(22,2)(23,2)(24,2):Move -400,0,75:Anim0,(19,2)(20,2)(21,2):Move 400,0,75;Jump Loop"
  197. Amal 2,B$
  198. Amal On 2
  199. End Proc
  200. Procedure LEV2
  201. Channel 1 To Bob 1
  202. Bob 1,330,75,1
  203. A$="Loop:Anim 0,(3,4)(4,4):Move -380,0,130:Anim0,(1,4)(2,4):Move 380,0,130;Jump Loop"
  204. Amal 1,A$
  205. Amal On 1
  206. T=Rnd(10)+1 : Wait T
  207. Channel 2 To Bob 2
  208. Bob 2,340,130,19
  209. B$="Loop:Anim 0,(22,2)(23,2)(24,2):Move -400,0,65:Anim0,(19,2)(20,2)(21,2):Move 400,0,65;Jump Loop"
  210. Amal 2,B$
  211. Amal On 2
  212. End Proc
  213. Procedure LEV3
  214. Channel 1 To Bob 1
  215. Bob 1,330,60,1
  216. A$="Loop:Anim 0,(3,4)(4,4):Move -380,0,150:Anim0,(1,4)(2,4):Move 380,0,150;Jump Loop"
  217. Amal 1,A$
  218. Amal On 1
  219. Wait 20
  220. Channel 2 To Bob 2
  221. Bob 2,340,100,19
  222. B$="Loop:Anim 0,(22,2)(23,2)(24,2):Move -400,0,90:Anim0,(19,2)(20,2)(21,2):Move 400,0,90;Jump Loop"
  223. Amal 2,B$
  224. Amal On 2
  225. Wait 50
  226. Channel 4 To Bob 4
  227. Bob 4,330,150,7
  228. A$="Loop:Anim 0,(7,2)(8,2):Move -380,0,100:Anim0,(5,2)(6,2):Move 380,0,100;Jump Loop"
  229. Amal 4,A$
  230. Amal On 4
  231. T=Rnd(10)+1 : Wait T
  232. Channel 5 To Bob 5
  233. Bob 5,330,170,16
  234. A$="Loop:Anim 0,(16,2)(17,2)(18,2):Move -380,0,105:Anim0,(13,2)(14,2)(15,2):Move 380,0,105;Jump Loop"
  235. Amal 5,A$
  236. Amal On 50
  237. End Proc
  238. Procedure LEV4
  239. Channel 1 To Bob 1
  240. Bob 1,330,60,1
  241. A$="Loop:Anim 0,(3,4)(4,4):Move -380,0,130:Anim0,(1,4)(2,4):Move 380,0,130;Jump Loop"
  242. Amal 1,A$
  243. Amal On 1
  244. Wait 20
  245. Channel 2 To Bob 2
  246. Bob 2,340,100,19
  247. B$="Loop:Anim 0,(22,2)(23,2)(24,2):Move -400,0,70:Anim0,(19,2)(20,2)(21,2):Move 400,0,70;Jump Loop"
  248. Amal 2,B$
  249. Amal On 2
  250. Wait 50
  251. Channel 4 To Bob 4
  252. Bob 4,330,150,7
  253. A$="Loop:Anim 0,(7,2)(8,2):Move -380,0,80:Anim0,(5,2)(6,2):Move 380,0,80;Jump Loop"
  254. Amal 4,A$
  255. Amal On 4
  256. T=Rnd(10)+1 : Wait T
  257. Channel 5 To Bob 5
  258. Bob 5,330,170,16
  259. A$="Loop:Anim 0,(16,2)(17,2)(18,2):Move -380,0,105:Anim0,(13,2)(14,2)(15,2):Move 380,0,105;Jump Loop"
  260. Amal 5,A$
  261. Amal On 50
  262. End Proc
  263. Procedure LEV5
  264. Channel 1 To Bob 1
  265. Bob 1,330,50,1
  266. A$="Loop:Anim 0,(12,4):Move -380,0,100:Anim0,(11,4):Move 380,0,100;Jump Loop"
  267. Amal 1,A$
  268. Amal On 1
  269. T=Rnd(10)+1 : Wait T
  270. Channel 2 To Bob 2
  271. Bob 2,340,80,19
  272. B$="Loop:Anim 0,(22,2)(23,2)(24,2):Move -400,0,150:Anim0,(19,2)(20,2)(21,2):Move 400,0,150;Jump Loop"
  273. Amal 2,B$
  274. Amal On 2
  275. T=Rnd(10)+1 : Wait T
  276. Channel 3 To Bob 3
  277. Bob 3,330,110,9
  278. C$="Loop:Amin 0,(10,10):Move -380,0,60:Anim 0,(9,10):Move 380,0,60;Jump Loop"
  279. Amal 3,C$
  280. Amal On 3
  281. T=Rnd(10)+1 : Wait T
  282. Channel 4 To Bob 4
  283. Bob 4,330,140,7
  284. A$="Loop:Anim 0,(7,2)(8,2):Move -380,0,110:Anim0,(5,2)(6,2):Move 380,0,110;Jump Loop"
  285. Amal 4,A$
  286. Amal On 4
  287. T=Rnd(10)+1 : Wait T
  288. Channel 5 To Bob 5
  289. Bob 5,330,170,16
  290. A$="Loop:Anim 0,(16,2)(17,2)(18,2):Move -380,0,105:Anim0,(13,2)(14,2)(15,2):Move 380,0,105;Jump Loop"
  291. Amal 5,A$
  292. Amal On 50
  293. End Proc
  294. Procedure LEV6
  295. Channel 1 To Bob 1
  296. Bob 1,330,50,1
  297. A$="Loop:Anim 0,(12,4):Move -380,0,100:Anim0,(11,4):Move 380,0,100;Jump Loop"
  298. Amal 1,A$
  299. Amal On 1
  300. T=Rnd(10)+1 : Wait T
  301. Channel 2 To Bob 2
  302. Bob 2,340,170,19
  303. B$="Loop:Anim 0,(22,2)(23,2)(24,2):Move -400,0,150:Anim0,(19,2)(20,2)(21,2):Move 400,0,150;Jump Loop"
  304. Amal 2,B$
  305. Amal On 2
  306. T=Rnd(10)+1 : Wait T
  307. Channel 3 To Bob 3
  308. Bob 3,330,110,9
  309. C$="Loop:Amin 0,(10,10):Move -380,0,60:Anim 0,(9,10):Move 380,0,60;Jump Loop"
  310. Amal 3,C$
  311. Amal On 3
  312. T=Rnd(10)+1 : Wait T
  313. Channel 4 To Bob 4
  314. Bob 4,330,140,7
  315. A$="Loop:Anim 0,(7,2)(8,2):Move -380,0,110:Anim0,(5,2)(6,2):Move 380,0,110;Jump Loop"
  316. Amal 4,A$
  317. Amal On 4
  318. T=Rnd(10)+1 : Wait T
  319. Channel 5 To Bob 5
  320. Bob 5,330,80,16
  321. A$="Loop:Anim 0,(16,2)(17,2)(18,2):Move -380,0,105:Anim0,(13,2)(14,2)(15,2):Move 380,0,105;Jump Loop"
  322. Amal 5,A$
  323. Amal On 50
  324. End Proc
  325. Procedure LEV7
  326. Channel 1 To Bob 1
  327. Bob 1,330,50,1
  328. A$="Loop:Anim 0,(12,4):Move -380,0,80:Anim0,(11,4):Move 380,0,80;Jump Loop"
  329. Amal 1,A$
  330. Amal On 1
  331. T=Rnd(10)+1 : Wait T
  332. Channel 2 To Bob 2
  333. Bob 2,340,170,19
  334. B$="Loop:Anim 0,(22,2)(23,2)(24,2):Move -400,0,150:Anim0,(19,2)(20,2)(21,2):Move 400,0,150;Jump Loop"
  335. Amal 2,B$
  336. Amal On 2
  337. T=Rnd(10)+1 : Wait T
  338. Channel 3 To Bob 3
  339. Bob 3,330,110,9
  340. C$="Loop:Amin 0,(10,10):Move -380,0,60:Anim 0,(9,10):Move 380,0,60;Jump Loop"
  341. Amal 3,C$
  342. Amal On 3
  343. T=Rnd(10)+1 : Wait T
  344. Channel 4 To Bob 4
  345. Bob 4,330,70,7
  346. A$="Loop:Anim 0,(7,2)(8,2):Move -380,0,110:Anim0,(5,2)(6,2):Move 380,0,110;Jump Loop"
  347. Amal 4,A$
  348. Amal On 4
  349. T=Rnd(10)+1 : Wait T
  350. Channel 5 To Bob 5
  351. Bob 5,330,80,16
  352. A$="Loop:Anim 0,(16,2)(17,2)(18,2):Move -380,0,105:Anim0,(13,2)(14,2)(15,2):Move 380,0,105;Jump Loop"
  353. Amal 5,A$
  354. Amal On 50
  355. End Proc
  356. Procedure LEV8
  357. Channel 1 To Bob 1
  358. Bob 1,330,40,1
  359. A$="Loop:Anim 0,(3,4)(4,4):Move -380,0,150:Anim0,(1,4)(2,4):Move 380,0,150;Jump Loop"
  360. Amal 1,A$
  361. Amal On 1
  362. Channel 2 To Bob 2
  363. Bob 2,340,80,19
  364. B$="Loop:Anim 0,(22,2)(23,2)(24,2):Move -400,0,100:Anim0,(19,2)(20,2)(21,2):Move 400,0,100;Jump Loop"
  365. Amal 2,B$
  366. Amal On 2
  367. Channel 3 To Bob 3
  368. Bob 3,330,130,1
  369. A$="Loop:Anim 0,(3,4)(4,4):Move -380,0,150:Anim0,(1,4)(2,4):Move 380,0,150;Jump Loop"
  370. Amal 3,A$
  371. Amal On 3
  372. Channel 4 To Bob 4
  373. Bob 4,340,170,19
  374. B$="Loop:Anim 0,(22,2)(23,2)(24,2):Move -400,0,100:Anim0,(19,2)(20,2)(21,2):Move 400,0,100;Jump Loop"
  375. Amal 4,B$
  376. Amal On 4
  377. End Proc
  378. Procedure LEV9
  379. Channel 1 To Bob 1
  380. Bob 1,330,40,1
  381. A$="Loop:Anim 0,(3,4)(4,4):Move -380,0,150:Anim0,(1,4)(2,4):Move 380,0,150;Jump Loop"
  382. Amal 1,A$
  383. Amal On 1
  384. Channel 3 To Bob 3
  385. Bob 3,330,130,1
  386. A$="Loop:Anim 0,(3,4)(4,4):Move -380,0,150:Anim0,(1,4)(2,4):Move 380,0,150;Jump Loop"
  387. Amal 3,A$
  388. Amal On 3
  389. Wait 100
  390. Channel 2 To Bob 2
  391. Bob 2,340,80,19
  392. B$="Loop:Anim 0,(22,2)(23,2)(24,2):Move -400,0,100:Anim0,(19,2)(20,2)(21,2):Move 400,0,100;Jump Loop"
  393. Amal 2,B$
  394. Amal On 2
  395. Channel 4 To Bob 4
  396. Bob 4,340,170,19
  397. B$="Loop:Anim 0,(22,2)(23,2)(24,2):Move -400,0,100:Anim0,(19,2)(20,2)(21,2):Move 400,0,100;Jump Loop"
  398. Amal 4,B$
  399. Amal On 4
  400. End Proc
  401. Procedure LEV10
  402. Channel 1 To Bob 1
  403. Bob 1,330,40,1
  404. A$="Loop:Anim 0,(3,4)(4,4):Move -380,0,150:Anim0,(1,4)(2,4):Move 380,0,150;Jump Loop"
  405. Amal 1,A$
  406. Amal On 1
  407. Channel 3 To Bob 3
  408. Bob 3,330,130,1
  409. A$="Loop:Anim 0,(3,4)(4,4):Move -380,0,150:Anim0,(1,4)(2,4):Move 380,0,150;Jump Loop"
  410. Amal 3,A$
  411. Amal On 3
  412. Wait 100
  413. Channel 2 To Bob 2
  414. Bob 2,340,80,19
  415. B$="Loop:Anim 0,(22,2)(23,2)(24,2):Move -400,0,120:Anim0,(19,2)(20,2)(21,2):Move 400,0,120;Jump Loop"
  416. Amal 2,B$
  417. Amal On 2
  418. Channel 4 To Bob 4
  419. Bob 4,340,170,19
  420. B$="Loop:Anim 0,(22,2)(23,2)(24,2):Move -400,0,120:Anim0,(19,2)(20,2)(21,2):Move 400,0,120;Jump Loop"
  421. Amal 4,B$
  422. Amal On 4
  423. Wait 50
  424. Channel 5 To Bob 5
  425. Bob 5,340,100,19
  426. B$="Loop:Anim 0,(10,2):Move -400,0,60:Anim0,(9,2):Move 400,0,60;Jump Loop"
  427. Amal 5,B$
  428. Amal On 5
  429. End Proc
  430. Procedure LEV11
  431. Channel 1 To Bob 1
  432. Bob 1,330,40,1
  433. A$="Loop:Anim 0,(3,4)(4,4):Move -380,0,150:Anim0,(1,4)(2,4):Move 380,0,150;Jump Loop"
  434. Amal 1,A$
  435. Amal On 1
  436. Channel 2 To Bob 2
  437. Bob 2,330,80,16
  438. A$="Loop:Anim 0,(16,4)(17,4)(18,4):Move -380,0,100:Anim0,(13,4)(14,4)(15,4):Move 380,0,100;Jump Loop"
  439. Amal 2,A$
  440. Amal On 2
  441. Wait 10
  442. Channel 3 To Bob 3
  443. Bob 3,330,170,22
  444. A$="Loop:Anim 0,(22,4)(23,4)(24,4):Move -380,0,120:Anim0,(19,4)(20,4)(21,4):Move 380,0,120;Jump Loop"
  445. Amal 3,A$
  446. Amal On 3
  447. Wait 50
  448. Channel 4 To Bob 4
  449. Bob 4,330,100,10
  450. A$="Loop:Anim 0,(10,4):Move -380,0,80:Anim0,(9,4):Move 380,0,80;Jump Loop"
  451. Amal 4,A$
  452. Amal On 4
  453. Channel 5 To Bob 5
  454. Bob 5,330,120,12
  455. A$="Loop:Anim 0,(12,4):Move -380,0,50:Anim0,(11,4):Move 380,0,50;Jump Loop"
  456. Amal 5,A$
  457. Amal On 5
  458. End Proc
  459. Procedure LEV12
  460. Channel 1 To Bob 1
  461. Bob 1,330,40,12
  462. A$="Loop:Anim 0,(12,4):Move -380,0,50:Anim0,(11,4):Move 380,0,50;Jump Loop"
  463. Amal 1,A$
  464. Amal On 1
  465. Channel 2 To Bob 2
  466. Bob 2,330,80,16
  467. A$="Loop:Anim 0,(16,4)(17,4)(18,4):Move -380,0,100:Anim0,(13,4)(14,4)(15,4):Move 380,0,100;Jump Loop"
  468. Amal 2,A$
  469. Amal On 2
  470. Wait 10
  471. Channel 3 To Bob 3
  472. Bob 3,330,170,22
  473. A$="Loop:Anim 0,(22,4)(23,4)(24,4):Move -380,0,120:Anim0,(19,4)(20,4)(21,4):Move 380,0,120;Jump Loop"
  474. Amal 3,A$
  475. Amal On 3
  476. Wait 50
  477. Channel 4 To Bob 4
  478. Bob 4,330,100,10
  479. A$="Loop:Anim 0,(10,4):Move -380,0,80:Anim0,(9,4):Move 380,0,80;Jump Loop"
  480. Amal 4,A$
  481. Amal On 4
  482. Channel 5 To Bob 5
  483. Bob 5,330,140,3
  484. A$="Loop:Anim 0,(3,4)(4,4):Move -380,0,150:Anim0,(1,4)(2,4):Move 380,0,150;Jump Loop"
  485. Amal 5,A$
  486. Amal On 5
  487. End Proc
  488. Procedure LEV14
  489. Channel 1 To Bob 1
  490. Bob 1,330,50,12
  491. A$="Loop:Anim 0,(12,4):Move -380,0,60:Anim0,(11,4):Move 380,0,60;Jump Loop"
  492. Amal 1,A$
  493. Amal On 1
  494. Channel 2 To Bob 2
  495. Bob 2,330,120,12
  496. A$="Loop:Anim 0,(12,4):Move -380,0,60:Anim0,(11,4):Move 380,0,60;Jump Loop"
  497. Amal 2,A$
  498. Amal On 2
  499. Wait 50
  500. Channel 3 To Bob 3
  501. Bob 3,330,65,12
  502. A$="Loop:Anim 0,(12,4):Move -380,0,60:Anim0,(11,4):Move 380,0,60;Jump Loop"
  503. Amal 3,A$
  504. Amal On 3
  505. Channel 4 To Bob 4
  506. Bob 4,330,135,12
  507. A$="Loop:Anim 0,(12,4):Move -380,0,60:Anim0,(11,4):Move 380,0,60;Jump Loop"
  508. Amal 4,A$
  509. Amal On 4
  510. End Proc
  511. Procedure LEV15
  512. Channel 1 To Bob 1
  513. Bob 1,330,60,12
  514. A$="Loop:Anim 0,(12,4):Move -380,0,60:Anim0,(11,4):Move 380,0,60;Jump Loop"
  515. Amal 1,A$
  516. Amal On 1
  517. Channel 2 To Bob 2
  518. Bob 2,330,120,12
  519. A$="Loop:Anim 0,(12,4):Move -380,0,60:Anim0,(11,4):Move 380,0,60;Jump Loop"
  520. Amal 2,A$
  521. Amal On 2
  522. Wait 50
  523. Channel 3 To Bob 3
  524. Bob 3,330,80,12
  525. A$="Loop:Anim 0,(12,4):Move -380,0,60:Anim0,(11,4):Move 380,0,60;Jump Loop"
  526. Amal 3,A$
  527. Amal On 3
  528. Channel 4 To Bob 4
  529. Bob 4,330,135,12
  530. A$="Loop:Anim 0,(12,4):Move -380,0,55:Anim0,(11,4):Move 380,0,55;Jump Loop"
  531. Amal 4,A$
  532. Amal On 4
  533. Wait 50
  534. Channel 5 To Bob 5
  535. Bob 5,330,165,16
  536. A$="Loop: Anim 0,(16,4)(17,4)(18,4) : Move-380,0,260 : Anim 0,(13,4)(14,4)(15,4) : Move 380,0,260;Jump Loop "
  537. Amal 5,A$
  538. Amal On 5
  539. End Proc